home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 1 / PC Actual CD 01.iso / f1 / mdisk25.arj / MTVPROT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-08-31  |  988 b   |  48 lines
  1. {$A+,B-,D-,E-,F-,G-,I-,L-,N-,O-,R-,S-,V+,X-}
  2.  
  3. Unit Mtvprot;
  4. Interface
  5. Uses Emimsbox;
  6.  
  7. Const Clave:Longint=$25;
  8.  
  9. Function Haz_Codigo (S:String):Longint;
  10. Function Comprueba_Codigo(S:String;Co:Longint):Boolean;
  11. Procedure Activa_Proteccion;
  12.  
  13. Implementation
  14. Uses Emiapp;
  15.  
  16. Function Haz_Codigo (S:String):Longint;
  17. Var Result:Longint;
  18.     B,B2:Byte;
  19. Begin
  20.      Randseed:=Clave;
  21.      Result:=0;
  22.      For B:=1 To Length(S) Do
  23.          Inc(Result,Ord(S[B]) Xor Random(255));
  24.      Haz_Codigo:=Result;
  25. End;
  26.  
  27. Function Comprueba_Codigo(S:String;Co:Longint):Boolean;
  28. Var Result:Longint;
  29.     B,B2:Byte;
  30. Begin
  31.      Result:=0;
  32.      Randseed:=Clave;
  33.      For B:=1 To Length(S) Do
  34.          Inc(Result,Ord(S[B]) Xor Random(255));
  35.      Comprueba_Codigo:=Result=Co;
  36. End;
  37.  
  38. Procedure Activa_Proteccion;
  39. Var Ch:Word;
  40. Begin
  41.      Ch:=Messagebox('El copyright de este programa ha sido alterado.',Nil,Mferror+Mfokbutton);
  42.      Application^.Done;
  43.      Halt(1);
  44. End;
  45.  
  46.  
  47. End.
  48.